www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminArticle\D_chk_edit_class.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <% biao="[ND_Article_class]" sys_content_type=trim(request("sys_content_type")) sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),4)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if err1=0 if request("nme")="" then err1=1 %> <script language="javascript"> alert("请填写分类名称"); history.go(-1); </script> <% end if if request("classid")=request("id") then err1=1 %> <script language="javascript"> alert("所属分类不能指定为自己"); history.go(-1); </script> <% end if if isnumeric(request("orders"))=0 then err1=1 %> <script language="javascript"> alert("顺序号必须为数字"); history.go(-1); </script> <% end if if request("classid")="xx" then rrr2="0" else set rs44=server.CreateObject("adodb.recordset") rs44.open "select * from "&biao&" where id="&request("classid"),conn,1,3 rrr2=rs44("parent_id_list") rrr3=rs44("parent_id") end if if instr(1,rrr2,","&cstr(request("id"))&",",1)<>0 or cstr(request("id"))=cstr(rrr3) then err1=1 %> <script language="javascript"> alert("不能移动到自己的子分类下面"); history.go(-1); </script> <% end if if err1=0 then set rs=server.CreateObject("adodb.recordset") rs.open "select * from "&biao&" where id="&request("id"),conn,1,3 rs("admin_dengji_group_id")=request("admingroup") rs("classname")=trim(request("nme")) rs("orders")=request("orders") rs("titleColor")=request("ColorModes") rs("titleFont")=request("FontModes") yuan_parent_id_list=rs("parent_id_list") yuan_parent_id_list_b=rs("parent_id_list")&","&rs("id") yuan_deepth=rs("deepth") classid=request("classid") if classid="xx" then rs("parent_id")="0" rs("parent_id_list")="0" rrrri="0" rs("deepth")=0 else rs("parent_id")=classid set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from "&biao&" where id="&classid,conn,1,3 pidlist=rs1("parent_id_list") rs("parent_id_list")=pidlist&","&classid rrrri=pidlist&","&classid sss1=ubound(split(pidlist&","&classid,",")) rs("deepth")=sss1 end if new_parent_id_list_b=rs("parent_id_list")&","&rs("id") yidong_deepth=ubound(split(rrrri,","))-yuan_deepth set rs33=server.CreateObject("adodb.recordset") rs33.open "select * from "&biao&" where sys_content_type='"&sys_content_type&"' and parent_id_list like '%"&yuan_parent_id_list_b&"%'",conn,1,3 do while not rs33.eof if len(rs33("parent_id_list"))-len(yuan_parent_id_list_b)<>0 then cha=right(rs33("parent_id_list"),len(rs33("parent_id_list"))-len(yuan_parent_id_list_b)) else cha="" end if 'new_parent_id_list_b_b=new_parent_id_list_b&cha if classid="xx" then new_parent_id_list_b_b="0,"&request("id")&cha else new_parent_id_list_b_b=rs1("parent_id_list")&","&rs1("id")&","&request("id")&cha end if rs33("parent_id_list")=new_parent_id_list_b_b sss1=ubound(split(new_parent_id_list_b_b,",")) rs33("deepth")=rs33("deepth")+yidong_deepth rs33.update rs33.movenext loop rs("is_open_use_blank")=request("LinkTarget") rs("is_link_class")=request("isoutLink") rs("outlink")=request("TurnLinkUrl") %> <script language="javascript"> alert("修改成功"); self.location="D_admin_Article_class.asp?sys_content_type=<%=sys_content_type%>"; </script> <% rs.update end if %> <% AJAXcloseLoader() %>